home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / ETEST5.TRP < prev    next >
Text File  |  1995-01-17  |  286b  |  13 lines
  1. procedure main
  2.         if (false) 
  3.                 writeln('A');
  4.         else
  5.                 if (true)
  6.                         writeln('B')
  7.                 else
  8.                         writeln('C');
  9.                 endif
  10.                 writeln('D');
  11.         endif
  12. endProc
  13.